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I * Introduction 

1) Micro-Planner is an Implementation of a subset of Carl Hewitt's 
language/ PLANNER, by Gerald Jay Sussman, Terry Ulnograd, and Eugene 
Charnlak on the Al group computer In LISP* Micro-Planner is now a 
publicly accessible systems program In the Al group system ITS, The 
current version of Micro-Planner, embedded In an allocated LISP, may be 
obtained by Incantlng ":PLNR" or ,f PLMR<contro1-K>" to DDT. Micro-Planner 
Is also available as EXPR code or LAP code. All Questions/ suggestions, 
or comments about Micro-Planner should be directed to Gerald Jay Sussman 
(login name GJS) who will maintain the program. 

2) Philosophical Overview 

The "level" of a programing language Is a term which is In 
fairly common usage In the computer culture. We all agree, for example, 
that FORTRAN, LISP, and PL1 are higher level languages than, say assembly 
language, regardless of our opinions of their relative merits for 
expressing our individual styles of programming. After some 
Introspection, I decided that whet Is meant by the level pf a language 
Is the amount of knowledge of programming style Implicit in the language 
processor and thus the Quantity of detail which the user does not 
explicitly have to specify because he may assume that the processor will 
fill In for him. When we express the value judgment that LI5P or PL1, 
for example. Is a lousy language, what we mean is that the stylistic 
assumptions made by the designers of the language are Incompatible with 
our own styles and thus overly restrict us. There are some of us (may 
ITS preserve their file directories!) with whom any restrictions are 
Incompatible and who thus always write In assembly language. There arc 
others, such as I, who find such restrictions an aid In the organization 
of large programs. Thus, to me, LISP Is useful In that It provides a 1 
large library of subroutines with uniform calling sequences, a convenient 
evaluator for defining recurs I vel y reentrant procedures from those 
primitives and a bookkeeper for the maintenance of a list structured data 
base. Indeed for these conveniences I pay heavily In space and time 
efficiency, as well as In some feeling of constrained style. 

PLANNER is the first of perhaps a whole nevi level of languages 
which will basically be oriented toward the accomplishment of tasks (or 
goals) which may In fact be broken down into subtasks (subgoals). By 
contrast. In previous languages (as LISP) problem solutions are expressed 
In terms of procedures (functions). The distinction is not Immediately 
apparent but should become more cloar If we note that In a PLANNER 
program, if a goal Is activated then It may be satisfied by any number of 
objects In the data base or by any number of theorems (the analogue of 
procedure), A backup mechanism Is provided so that one of the 
possibilities Is tried, and then If, as a consequence a failure occurs. 
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then another is tried, etc. Furthermore, the data and theorems need not 
be referenced explicitly, but rather by saying. In essence, "the datum 
(or procedure)" which fits the following pattern (or accomplishes the 
desired result). In order for such data and theorems to be implicitly 
referenced efficiently the system has the responsibility of constructing 
and accessing a cross-referenced data base of "assertions" (data) and 
theorems ( programs) . 



X . 
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1 I . Programming in Micro-Planner 

The easiest way to understand Micro-Planner Is to watch how It 
works, so In this section we will present a few simple examples and 
explain the use of some of its most elementary features. 

First we will take the most venerable of traditional deductions: 

Turing is a human 
All humans arc fallible 
so 

Turing Is fall ible. 

It Is easy enough to see how this could be expressed in the usual 
logical notation and handled by a uniform proof procedure. Instead, let 
us express it tn one possible way to Micro-Planner by saying: 

(THASSERT (HUMAN TURING)) 
(THGONSE {X) (FALLIBLE S?X> 

(THGOAL (HUMAN $?X)) ) 

The proof would be generated by asking Micro-Planner to evaluate the 
expression: 

(THGOAL (FALLIBLE TURING) $T) 

We Immedlatel y see several points. First, there are two different 
ways of storing Information. Simple assertions are stored in a data 
base of assertions, while more complex sentences containing quantifiers 
or logical connectives are expressed in the form of theorems. 

Second, one of the most Important points about Micro-Planner Is that 
It Is an evaluator for statements written In a programming language. It 
accepts input in the form of expressions written in the Micro-Planner 
language, and evaluates them, producing a value and side effects. 
THASSERT Is a function which, when evaluated, stores its argument In the 
data base of assertions or the data base of theorems (which are cross- 
referenced in various ways to give the system effi dent look-up 
capabilities). In this example the second line defines a theorem of the 
THCUHSE type (THCONSE means consequent; we will see other types later). 
This states that If we ever want to establish a goal of the form 
(FALLIbLE $?X), we can do this by accomplishing the goal (HUMAN $?X), 
where X is a variable. Note that symbols like FALLIBLE and HUMAN have no 
"meaning 1 ' In Micro Planner. (All Micro Planner symbols start with TH .) 
Nor Is there any significance to the order In which elements appear In 
the pattern. We could have said (TURING IS-AN OSTRICH) for all Micro 
Planner cares* The strange prefix characters are part of Micro-Planner's 
pattern matching capabilities. If we ask Micro-Planner to prove a goal 
of the form (A X), there is no obvious way of knowing whether A and X are 
constants (like TURING and HUMAN In the example) or variables. LISP 
solves this problem by using the function QUOTE to indicate constants. 
In pattern matching this is inconvenient and makes most patterns much 
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bulkier and more difficult to read. Instead, Mlcro-Pl anner uses the 
opposite convention " a constant Is represented by the atom itself, 
while a variable must be indicated by adding an appropriate prefix, Thl: 
prefix differs according to the exact use of the variable in the pattern, 
but for the time being let us just accept $? (this is a dollar-sign -- 
not an alt-mode) as a prefix indicating a variable. The definition of 
the theorem Indicates that it has one variable, X by the (X) following 
THCUNSE. 

The third statement Illustrates the function THGOAL, which calls 
the Micro-Planner interpreter to try to prove an assertion. This can 
function In several ways. If we had asked Ml cro-Planner to evaluate 
(THtiuAL (HUMAN TURING)) It would have found the requested assertion 
Immediately In the data base and succeeded (returning as Its value some 
indicator that It had succeeded). However, (FALLIBLE TURING) has not 
been asserted, so we must resort to theorems to prove It. Later we will 
see that a THGUAL statement can give Micro-Planner various kinds of 
advice on which theorems are applicable to the goal and should be tried. 
For the moment, sT Is advice that causes the evaluator to try all 
theorems whose consequent is of a form which matches the goal, (I.e. a 
theorem with a consequent ( S 72 TURING) would be tried, but one of the 
form (HAPPY J?Z) or (FALLIBLE $7Y $?Z) would not. If there is no advice 
only the data base will be tried. Assertions can not have an arbitrary 
list structure for their format but they are not limited to two-member 
lists or three-member lists as In these examples.) The theorem we have 
jubt defined would be found, and In trying It, the match of the 
consequence to the goal would cause the variable $?X to be assigned to 
the constant TURING. Therefore, the theorem sets up a new goal (HUMAN 
TURING) and this succeeds Immediately since it Is In the data base. In 
general, the success of a theorem will depend on evaluating a Micro- 
Planner program of arbitrary complexity. In this case it contains only • 
single THGOAL statement, so its success causes the entire theorem to 
succeed, and the goal (FALLIBLE TURING) is proved. 

Consider the question "I© anything folliDlo?", or In logic 
(EXISTS (Y)(FALLIBLE Y)). This requires a variable and It could be 
expressed in Micro-Planner as: 

(THPROG (Y) (THGOAL (FALLIBLE $?Y) $T) (THRETURN S?Y)) 

Notice that THPROG (Micro-Planner's equivalent of a LISP PROG/ 
complete with GO statements, tags, RETURN, etc) acts as an existential 
quantifier. It provides a binding-place For the variable Y, but does 
not Initialize It -- it leaves it in a state particularly marked as 
unasslrned. To answer the question, we ask Micro-Planner to evaluate 
the entire THPROG expression above. To do this It starts by evaluating 
the THGOAL expression. This searches the data base for an assertion of 
the form (FALLIBLE $?Y) and falls. It then looks for a theorem with a 
consequent of that form, and finds the theorem we defined above. Now whe 
the theorem is called, the variable X in the theorem Is identified with 
the variable Y in the gual, but since Y has no value yet, X does not 
receive a value. The theorem then sets up the goal (HUMAN S?X) with X a 
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a variable. The data-base searching mechanism cakes this as a command to 
look for any assertion which matches that pattern (I.e. an 
instantiation), and finds the assertion (HUMAN TURING). This causes X 
(and therefore Y) to be assigned to the constant TURING- and the theorem 
succeeds, completing the proof and returning the value TURING, 

There seems to be something missing. So far, the data base has 
contained only the relevant objects, and therefore Micro-Planner has 
found the right assertions immediately. Consider the problem we would 
get if we added new Information by evaluating the statements: 



(THASSERT 
(THASSERT 
(THASSERT 



(HUMAN 
(GREEK 
(HUMAN 



SOCRATES)) 
SOCRATES)) 
NEWTON)) 



Our data base now contains the assertions: 



(HUMAN 
(HUMAN 
(GREEK 
(HUMAN 



TURING) 
SUCRATES) 
SOCRATES) 
NEWTON) 



and the theorem; 

(THCONSE (X) (FALLIBLE S?X) 

(THGOAL (HUMAN J?X))) 

What If we now ask, "Is there a fallible Greek?" In Micro-Planner we 
would do this by evaluating the expression: 

(THPROG (X) 

(THGOAL (FALLIBLE $?X)ST) 
(THGOAL (GREEK S?X)) 
(THRETURN *?X)) 
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Here, the decision was to pick a particular assertion from the data base 
to match a coal. Other decisions might be the choice of a theorem to 
satisfy a goal, or a decision of other types found in more complex Micro- 
Planner functions. Micro-Planner keeps enough Information to change any 
decision and send evaluation back down a new path. 

In our example the decision was made inside the theorem for 
FALLIBLE, when the goal (HUMAN $?X) was matched to the assertion (HUMAN 
NEWTON). Micro-Planner will retrace its steps, try to find a different 
assertion which matches the goal, find (HUMAN SOCRATES), and continue 
with the proof* The theorem wi I I succeed with the value (FALLIBLE 
SOCRATES), and the THPRQG will proceed to the next expression, (THGOAL 
(GREEK S?X)). Since X has been assigned to SOCRATES, this will set up 
the goal (GREEK SOCRATES) which will succeed Immediately by finding Che 
corresponding assertion In the data base. The program will then return 
the value SOCRATES. If there were no explicit THRETURN statement, and 
the TIIPROG was allowed to fall off its end, it would return the default 
value THNOVALi The whole course of the deduction process depends on the 
failure mechanism for backing up and trying things over (this Is actually 
the process of trying different branches down the subgoal tree.) All of 
the functions like THCOND, THAND, THOU, etc. are controlled by success 
vs. failure. Thus It Is the Micro-Planner executive which establishes 
and manipulates subgoals In looking for a proof. 

Although Micro-Planner is written as a programming language. It 
differs In several critical ways from anything which is normally 
considered a programing language. First, it ts goal-directed. Theorems 
can be thought of as subroutines, but they can be called by specifying 
the goal which Is to be satisfied. This is like having the ability to 
say "Call a subroutine which will achieve the desired result at this 
point." Second, the evaluator has the mechanism of success and failure 
to handle the exploration of the subfioal tree. Other evaluators, such as 
LISP, with a basic recursive evaluator have no way to do this. Third, 
Micro-Planner contains a bookkeeping system for matching patterns and 
manipulating a data base, and for handling that data base efficiently. 

How Is Micro-Planner different from a theorem prover? What Is 
gained by writing theorems In the form of programs, and giving them power 
to call other programs which manipulate data? The key is in the form of 
the data the theorem-prover can accept. Most systems take declarative 
Information, as In predicate calculus. This is in the form of 
expressions which represent "facts" about the world. These are 
manipulated by the theorem-prover according to some fixed uniform process 
set by the system, Micro-Planner can make use of imperative Information, 
telling it how to go about proving a subgoal, or to make use of an 
assertion. This produces what Is called h I pf arch 1 cal control structure . 
That Is, any theorem can Indicate what the theorem prover is supposed to 
do as It continues the proof. It has the full power of a general 
programming language to evaluate functions which can depend on both the 
data base and the subgoal tree, and to use Its results to control the 
further proof by making assertions, deciding what theorems are to be 
used, and specifying a sequence of steps to be followed. What does this 
mean in practical terms? In what way does It make a "better" theorem 
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prover? We will give several examples of areas v/here the approach Is 

Important* 

First, consider the basic problem of deciding what subgoals to try 

in attempting to satisfy a goal. Vory often, knowledge of the subject 
natter will tell us that certain methods are very likely to succeed, 
others may be useful if certain other conditions are present, while 
others may be possibly valuable, but not likely, lie would like to have 
the ability to use heuristic programs to determine these facts and direct 
the theorem prover accordingly. It should be able to direct the search 
for coals and solutions in the best way possible, and able to bring as 
much intelligence as possible to bear on the decision. In Micro-Planner 
this is done by adding to our THGOAL statement a reconnendat ion I j ?t 
which can specify that ONLY certain theorems ere to be tried, or that 
certain ones art to be tried FIRST in a specified order. Since theorems 
are programs, subroutines of any type can be called to help make this 
decision before establishing a new THGOAL, A theorem can be given a name 
so that it can be explicitly referred to. In our example, however, we 
did not do so. If we had wanted to name It, say, FALLI BLE-PROVER, we 
would have written 

(THCOHSE FALLIBLE-PROVER (X) ... ) 

An important problem Is that of maintaining a data base with a 
reasonable amount of material. Consider the first example above. The 
statement that all humans are fall Ible, whl le unambiguous in a 
declarative sense Is actually ambiguous In its imperative sense (i.e. the 
way It is to be used by the theorem prover). The first way is to simply 
use it whenever we are faced with the need to prove (FALLIBLE $?X)» 
Another way might be to watch for a statement of the form (HUMAN $?X) to 
be asserted, and to immediately assert (FALLIBLE $?X) as well. There is 
no abstract logical difference, but the impact on the data base Is 
tremendous. The more conclusions we draw when Information Is asserted, 
the easier proofs will be, since they will not have to make the 
additional steps to deduce these consequences over and over again* 
However since we don't have infinite speed and size. It is clearly folly 
to think of deducing and asserting everything possible (or even 
everything interesting} about the data when it Is entered. If we were 
working with totally abstract, meaningless theorems and axioms (an 
assumption which would not be Incompatible with many theorem-proving 
schemes), this would be an Insolvable dilemma. But Micro-Planner Is 
designed to work In the real world, v/here our knowledge is much more 
structured than a set of axioms and rules of Inference. We may very 
well, when we assert (LIKES $?X POETRY) want to deduce and assert (HUMAN 
S?X), since in deducing things about an object. It will very often be 
relevant whether that object Is human, and we shouldn't need to deduce it 
each time. On the other hand, It would be silly to assert (HAS-AS-PART 
S?X SPLEEN), since there Is a horde of facts equally important and 
equally limited In use. Part of the knowledge which Micro-Planner should 
have of a subject, then, is what facts are important, and when to draw 
consequences of an assertion. This is done by having theorems of an 
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antecedent type: 

(THAHTE (X Y) <L1KES $?X $?Y) 

(THASSERT (HUMAN $?X)) ) 

This says that when we assert that X likes something, we should also 
assert (HUMAN $?X). Of course, such theorems do not have to be so simple. 
A fully general Micro-Planner program can be activated by an THAHTE 
theorem, doing an arbitrary (that Is,, the programmer has free choice) 
amount of deduction, assertion, etc. Knowledge of what we are doing in a 
particular problem may indicate that it is sometimes a good idea to do 
this kind of deduction, and other times not. As wl th the consequent 
theorems, Micro-Planner has the full capacity when something is asserted, 
to evaluate the current state of the data and proof, and specifically 
decide which antecedent theorems should be called. 

Micro-Planner therefore allows deductions to use all sorts of 
knowledge about the subject matter which go far beyond the set of axioms 
and basic deductive rules. Micro-Planner itself Is subject-Independent, 
but Its power is that the deduction processs never needs to operate on 
such a level of ignorance. The programmer can put in as much heuristic 
knowledge as he wants to about the subject, just as a good teacher would 
help a ctass to understand a mathematical theory, rather than just 
telling them the axioms and then giving theorems to prove. 

Another advantage In representing knowledge In an imperat I ve form I s 
the use of a theorem prover In dealing with processes involving a 
sequence of events. Consider the case of a robot manipulating blocks on 
a table. It might have data of the form, "blockl Is on block2, M "block2 
is behind block3 M , and "If x I s on y and you put it on z, then x is on z, 
and Is no longer on y unless y is the same as z". Many examples in 
papers on theorem provers are of this form (for example the classic 
"monkey and bananas" problem). The problem Is that a declarative theorem 
prover cannot accept a statement like (ON 81 B2) at face value. It 
clearly Is not an axiom of the system, since its validity will change as 
the process goes on. It must be put In a form (OH Bl B2 50) where SO Is 
a symbol for an Initial state of the world. The third statement might be 
expressed as: ** 

(FORALL (X Y Z SXAND (ON X Y (PUT X Y S)) 

(0R(EQUAL Y 2) 

(NOT(0N X Z (PUT X Y S)))))) 

In this representation, PUT Is a function whose value Is the state 
which results from putting X on Y when the previous state was S. We run 
Into a problem when we try to ask (ON Z U (PUT X Y S)) I.e. Is block Z 
on block U after we put X on Y7 A human knows that If we haven't touched 
Z or u we could just ask (ON Z W 5) but In general It may take a complex 
deduction to decide whether we have actually moved them, and oven If we 
haven't. It will take a whole chain of deductions (tracing back through 
the time sequence) to prove they haven't been moved. In Micro-Planner, 
where we specify a process directly, this whole type of problem can be 
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handled In an Intuitively more satisfactory way by using the primitive 
function THERASE. 

Evaluating (THERASE (ON J?X $?Y)) removes the assertion (ON $?X $?Y) 
from the data base* If we think of theorem provers as working with a set 
of axioms, it seems strange to have a function whose purpose Is to erase 
axioms. If instead we think of the data base as the "state of the 
world" and the operation of the provcr as manipulating that state. It 
allows us to make great simplifications. Now we can simply assert (ON 31 
B2) without any explicit mention of states. Vie can express the necessary 
theorem as: 

(THCUHSE (X Y Z) 

(PUT S?X $?Y) 
(THGOAL (Ull S?X $?Z)> 
(THERASE (ON $?X $?Z)> 
(THASSERT (ON $?X $?Y)>) 

This says that whenever we want to satisfy a goal of the form (PUT 
S?X *?Y), we should first find out what thing Z the thing X is sitting 
on, erase the fact that it is sitting on Z, and assert that it is sitting 
on Y. We could also do a number of other things, such as proving that it 
is indeed possible to put X on v, or adding a list of specific 
Instructions to a movement plan for an arm to actually execute the goal. 
In a more complex case, other interactions might be involved. For 
example, if we are keeping assertions of the form (ABOVE S?X $?Y) we 
would need to delete those assertions which became false when we erased 
(ON s?X $?Z) and add those which became true when we added (ON S?X 5?Y>. 
Antecedent theorems could be called by the assertion (ON $?X $?Y) to take 
care of that part, and a similar group called erasing theorems can be 
called in an exactly analogous way when an assertion Is erased, to derive 
consequences of the erasure. Again we emphasize, which theorems will be 
called cjo_bej>iade dependent on the way the data base is structured, 
which in turn can reflect knowledge of the subject matter. In this 
example, we would have to decide whether It was worth adding all of the 
above rd^tipns to-the data base, with the resultant need to check them 
whenever something Is moved, or Instead to omit them and take time to 
deduce them from the OH relation each time they are needed. 

Thus in Micro^Hlanner, the changing state of the world can be 
mirrored In the changing state of the data base, avoiding any need to 
make explicit mention of states, with the requisite overhead of 
deductions. This is possible since the Information Is given In an 
imperative form, specifying theorems as a series of specific steps to be 
executed. 

If we look back to the distinction between assertions and theorems 
made on the first page, it would seem that we have established that the 
base of assertions Is the "current state of the world", while the base of 
theorems is our permanent knowledge of how to deduce things from that 
state* This is not exactly true, and one of the most exciting 
possibilities in Micro-Planner is the capability for the program Itself 
to create and modify the Micro-Planner functions which make up the 
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theorem base. Rather than simply making assertions, a particular Micro- 
Planner function might be written to put together a new theorem or make 
changes to an existing theorem / In a way dependent on the data and 
current knowledge. I t seems 1 i kely that meaningful "learning" I nvol ves 
this type of behavior rather than simply modifying parameters or aoding 
norc individual facts (assertions) to a declarative data base* 
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III. The Micro-Planner Primitives 

This section will basically be a list of the Mlcro-Pl anner 
primitives with a detailed description of each. Meta-Llngul st 1c 
variables will be enclosed in angle brackets (<>). 

The heart of Micro-Planner Is a structure known as THTREE; It Is 
to the hierarchical control structure of PLANNER what a push-down list is 
to a recursive control structure such as Is found in LISP, In LISP the 
push-down list remembers the return addresses of recursive function 
calls; In Micro-Planner THTREE keeps track of the decisions (or 
hypotheses) made so far in the problem-solving process which are 
currently considered relevant to the solution. In case a failure occurs 
PLANNER can back up THTREE, undoing the decisions which caused the 
failure until a promising approach is found. If none Is found the 
program returns a failure. THTREE Is a tree structure, each node of 
which contains information about how to proceed in case either success or 
failure propagates to that node. Failure Is propagated from a node If 
and only (f a failure propagates to It and no further possibilities exist 
at that node. A node of THTREE may be thought of as a goal, with 
branches originating at this node associated with tentatively useful 
hypotheses for establishing the goal , 

Closely associated with THTREE Is THALIST, the list of variable 
bindings. Certain primitives bind variables by declaration. In their 
initial bound state variables are called unasslgned and arc assigned to 
"THUNASSIGNEO." THALIST shares the tree structure of THTREE. 

Because of the non-recursive implementation of the Ml cro-Planner 
interpreter the PLANNER value of an expression Is not the same as Its 
LISP value. In most cases this Is unimportant because PLANNER 
expressions are usually executed for effect rather than for value. The 
PLANNER value of an expression is however available as the LISP value of 
the LISP free variable THVALUE immediately after the expression Is 
executed. Although this is not a very pretty convention It Introduces 
some very great simplifications In the implementation. 

1) .PLNR. UNIT) 

One can have a PLANNER INIT file In the same way one has a teco 
init file. The file name should be os above. 

2) (TH AMONG <varlable name> <expresslon>) 

Upon entry the variable named <by an atom) must be bound. If it Is 
unasslgned then It will be assigned to the first member of the list of 
choices to which <expression> THVALuates, If the variable already has a 
value (Is assigned), TH AMONG falls unless the assigned value is already 
among the choices. Each time a failure backs up to the THAMOHG the 
variable will be assigned to the next element of the choice list. If It 
runs out of choices It fails, otherwise It succeeds, 

3) (THAND <el> . . . <en>) 

THANO falls unless each of Its subexpressions succeeds In sequence, 
allowing for backup. It is just like THPKOG except that there are no 
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variable declarations or taiis al lowed, 

ii) (THANTE <thm-name> < 1 ist-of-variabIes> <pattern> <body>) 

T1IANTE work* In a similar fashion to THCOHSC to define and 
(optional ly) assert antecedent theorems, 

5) (THAPPLY <theorcm> <datum>) calls the specified theorem causing It 
to match its pattern to the specified datum* If It matches* the theorem 
is executed with <datum> as its "argument," The THVALUE of a THAPPLY is 
the value of the theorem applied. 

G) (THASSERT <ske!eton> <recl> ... <recn>) 

TH ASSERT adds the assertion ( formed by substituting assl gnments for 
variables {or by THVALlng SE's as described In the matcher section) In 
the skeleton) to the data-base except If the skeleton Is an atom. In 
which case It adds the atom as a theorem to the theorem base. 

THASSERT only fails if It tries to assert an already existing 
assertion. If the first reconmendat Ion to a THASSERT Is a (THPROP <e>) 
then the LISP value of <e> Is used as the property list of the assertion 
being asserted, A more complex recommendation is THPSEUDU, which has its 
own listing. THASSERT also may recommend antecedent theorems with THTUF 
or THUSE as in THGOAL, though the success or failure of those theorems Is 
Irrelevant to su«e5* or failure pf the assertion. The PLANNER value of 
a THASSERT Is the object asserted. 

7) (THASVAL <variable>) 

THA5VAL Is a predicate which assumes that the Indicated variable is 
bound. It succeeds If and only If the variable Is assigned a value. 

3) (THUKPT <comment>) 

THUKPT has no effect unless traced. If It Is, Its comment Is 
printed. If the trace's break predicate Is true as well, e. g. 

(THTRACE CTHBKPT T T)), 
then THbKPT breaks In a similar fashion to THERT. (see **•). However, 
THUKPT Is mo re powerful than THERT as It also breaks upon failure backing 
up to It. It Is thus more useful than THERT for debugging PLANNER 
programs. 

9) (THCUND <palrl> ... <palr n>) 

THCUND Is the PLANNER analogue of COND In LISP. As In MAC-LISP the 

"pairs" needn't be. basically THCUND executes the CAR of each pair until 

one succeeds. The THCOND will then succeed if all the rest of that 
"pair" succeeds (like a THANDJ else THCOND will fall, 

10) (THCUNSE <thm-name> < 1 1 st-of-vari abl es> <pattern> <body>) 

A planner consequent theorem can be defined and asserted by the 
function THCONSE. For example, a consequent theorem named TUMI can be 
defined and asserted as follows: 
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(THCUHSE THMl (X) (FALLIBLE $?X) (THGOAL (HUMAN $?X))) 
Ihi s is eQul valent to: 

(TMPUTPHOP 

'THHl 

'(THCONSE (X) (FALLIBLE S?X) (THGOAL (HUMAN $?X))) 

'THEOREM) 
(THASSERT THMl) 

Tlie theorem name is optional. If It is not given, a unique name 
Is generated by the system. Note that this feature should not be used if 
one later wants to erase the theorem. 

Asserting the theorem can be avoided by placing THN0A55ERT 
immediate! y after the theorem name For example, 

(THCOMSE THMl THNOASSERT (X) (FALLIBLE S?X) (THGOAL (HUMAN S?X))) 

will define THMl, but not assert It. 

11) (THOATA) causes Micro-Planner to go Into a read loop for gobbling 
assertions and theorems at high speed* Loop ends when NIL Is read, 

12) (THDO <el> ... <en>) 

THDO executes each of Its subexpressions In turn and cares not whether 
they succeed or fall; It then succeeds. More precisely. It only ignores 
simple failures occurring in Its scope. (For the distinction between 
types of failures, see THFAIL.) If a failure backs up to It, all that It 
did Is undone. 

13) (THDUMP <fllenamel> <fllename2> <device> <user>) 

Dumps the state of the Micro-Planner world (THSTATE) Into the 
spec! f I ed f I 1e. 

(THDUMP SAVE STATE) (THFLUSH) (UREAD) (IOC Q) 
Is a no op. 

14) THEOREMS 

Theorems are the Micro-Planner analogue of functions In LISP. There 
are three ki nds: 

consequent theorem - for establishing goals 
antecedent theorems - for expanding on assertions 
erasing theorems - for expanding on erasures. 

See THCUUSE, THERASING, and THANTE for a convenient method of defining 
theorems* When a theorem Is called the declared variables are bound and 
the Pattern Is matched to the calling pattern In THGOAL or datum In 
THASSEHT, THE RASE, and THAPPLY. This has the effect of assigning some of 
the theorem's variables. The theorem is then executed as a THPROG If the 
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15) (THERASE <skeleton> <recl> ... <recn>) Is identical to THAS5ERT 
except for effect. If a failure backs up to an assertion or an erasure 
[t Is undone. 

1C) (THERASING <thm-name> <1 I st-of-varlables> (pattern) <body>) 

THERASING works in a similar fashion to THCONSE to define and 
(optional 1 y) assert antecedent theorems. 

17) (THERT <comment>) 

THERT causes Micro-Planner to break and print Its comment. The 
state of the world can be explored by EVALing any s-expresslon. Planner 
expressions can be thvaled by explicitly calling thval. For example, 

(THVAL (THASSERT (HUMAN TURING)) NIL) 
would add this assertion to the data base If It had not been previously 
asserted. Note that explicit thvals should be done carefully as they can 
change the state of the world. 

When ready to leave the breakpoint, ($P <s-exp>) causes THERT to 
return the lisp value of the s-exp, Cwhere M $" ■ ALT-MODE). Mote that 
this wl I 1 cause failure if the expression evals to NIL. SP Is equivalent 
to (iiP T) and is the standard way to proceed from the breakpoint. 

18) (TI1FAIL <argl> <arg2> <argi>) 

THFAIL causes failure to propagate* the extent of which is determined 
by the arguments: 

(TMFAIL THTAG < tag> T) causes a failure to propagate to the tag 
Indicated. 

(THFAIL THTAG < tag> ) causes a failure to propagate past the tag 
Indicated. 

(THFAIL THPROG), (THFAIL THEUREM) cause the THPROG or the THEOREM 
current! y In to f ai 1 . 

(THFAIL THMESSAGE <message>) causes a failure to propagate until It 
reaches a THMESSAGE statement whose pattern matches the message. 

(THFAIL) causes a failure similar to the one caused by a THGOAL, say, 
falling. The program will back up to the last decision point and try to 
patch things up. 

Any failure caused by THFAIL* except when It Is given no 
arguments, is a compound failure. All other failures are simple 
fai lures. 

19) (THFAIL? <predicate> <action>) 

If failure backs up to this planner primitive and the LISP 
predicate evals to true. It returns the eval of the action. THFAIL7 is 
useful as a computationally less costly form of THMES5AGE since it does 
not Involve pattern matching against a message failure or THPUOGing. 

20) (THFIUALIZE <argl> <arg2>) 

THFINALIZE is a primitive which allows pruning of THTREE. 
Essentially, If one THFINALIZES, say to a tag, then all the things done 
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since that tag was passed are not undoable in case of failure. Example: 
To put all of the green blocks In the box and return a list of those 
actual ly moved: 

(THPROG (X (Y HID) 

(THUR (THAHD (TIICOAL (IS S ?X CLOCK)) 

(THGOAL (COLOR S?X GREEN))) 
(THRETURN $?Y)) 
FOU 
(THCOKD ((THGOAL (CONTAIN liOX $?X)) (THFAlD) 

((THGOAL (PUTIN $ ?X BOX) (THUSE TC-PUTIN)) 
(THSETa 5?V (CONS $?X 5?Y)) 
(THFINALIZE THTAG FOU) 
(THFAlD) 
{(PRINT $?X) (THERT CAN HOT PUT IT IN)))) 

Besides finalizing to a tag, one can finalize a theorem or a THPROG by 
saying (THFINALIZE THEOREM) or (THFINALIZE THPROG). There are lots of 
other things that can be done with THFINALIZE, hut I will not guarantee 
them. 

21) (THF1ND <mode> <skeleton> <variable declarations> <el> ... <en>) 

THFIND Is a primitive whose THVALuation yields a list of objects, each 
of which is the result of substituting for variables in the skeleton 
values of those variables which cause the program starting at the 
variable declarations (like a THPROG) to succeed. Thus, for example, If 
the data-base contained the assertions (HACKER Hi (HACKER H) (HACKER RG) 
(AT MAC RG) and we THVALed the expression (THFIND ALL (AT SC $?X) (X) 
(THGOAL (HACKER S?X)) (THNOT (THGOAL (AT MAC S?X)))> we would get ((AT SC 
tl) (AT SC H)) as its THVALUE (PLANNER value). 

The mode field of a THFIND may be any of the following. 

ALL Says to find all I terns matching the description <number> 

Find at least that number, there may be more in the data base, but I am 

not interested in them. 

(EXACTLY <number>) I want this number. If there are any more, 

fall. 

(AT-LEAST <number>) If there are fewer, fail, there may be more. 
(AT -MOST <number>) There may be less, but if there are more, 

fai 1. 

(AS -MANY -AS <number>) I don 1 ! care how many there are (providing 
there is at least 1), but 1 only want to see <number> of them. 

(AT-LEAST <numberl> AT -HOST <number2>) Takes the logical "and" 

of the two condi t ions 

(AT-LEAST <numberl> AS -MANY -AS <number2>) Same here. 

Those familiar with the old version night note that this Is a different 
syntax. However, any code writen In the old form wl 1 1 still work on the 
new system. 



PAGE 1G 



22) (THFLUSH <Indicatorl> <indicator2> ...) 

THFLUSH Is a Generally useful function for 
desired state. It remprop's all properties w 

fror.i all atuns on the Ob LIST. 

(THFLUSH} » (THFLUSH THASSERTION THANTE THC0N5E THERASIHG) 



getting a LISP Into some 
th the indicators specified 



23> CTHBO <tag>) - (THSUCCEED THTAG <tag>> 

24) (THGOAL <pattern> <recl> ... <recn» 

This Is a real dllly to describe. It Is probably the most complex 
single primitive in Micro-Planner. Assume the simplest case in which 
there are no recommendations <reci> given* THGOAL searches the data base 
for a datum (I.e. an assertion) which matches the pattern. If it finds 
one, it succeeds after assigning all of the unassigned variables In the 
pattern so as to make it match the datum; it then returns the assertion 
found as Its PLANNER value. If It does not find a matching datum It 
fails. If after a success, a failure propagates back to I t. It unasslgns 
the variables it assigned last time and continues Its search for a 
matching datum from where it left off. 

If recor.miendat ions are given they are tried in order. If the very 
first reconiraendat Ion Is a (THNUDU) or a (THDBF -) the initial data base 
search is inhibited, otherwise It is assumed in default. The possible 
recommendations are; 

1) (THNUDB) - Inhibit data base search. If it Is not first, it is 
useless and causes an error. 

2) (THUbF <filter>) - Try only those elements of the data base 
satisfying the f i I ter. 

>) (THTBF <filter>) - Try only those theorems satisfying the filter. 
k) (THUSE <thl> <th2> ...<thn>) - Try the theorems given explicitly 
by their atom headers in the order mentioned. 

A filter Is any unary LISP predicate; the always true predicate Is 
supplledjjy the system as THTRUE. All assertions have property lists 
which are their CURs. Thus if a filter refers to the CDR of Its argument 
It Is referring to the property list, CAR of an assertion, however. Is 
not -1 a* in LISP, atoms; rather it is the datum which is matched against 
the pattern. 

If <utheoreiii Is recommended, say with THUSE, It had better be an atom 
with a THEOREM property pointing to a consequent theorem (I.e. It must be 
of the form (THCONSE <varlablo declarations) <consequent> (el> ... 
<en>)). Note that the theorem need not be asserted for THUSE to apply. 
If the goal pattern matches the consequent, then the theorem will be 
tried. The matcher will first bind the theorem variables appearing in 
the declaration (see THPROG) and then match the patterns, causing some of 
the theorem variables to be assigned and leaving others unassigned. If 
the match wins, the theorem will proceed to execute as a THPRUG. If the 
theorem succeeds the PLANNER value of the THGOAL will be the pattern of 
the goal with the assignments substituted for the assigned variables, 
unless the theorem does a THRETURH, In which case the PLANNER value of 
the THGUAL will be the goodie returned. If a goal variable which Is 
unassigned is matched against a theorem variable and the theorem 
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eventually gives that variable a value then the goal variable also pets 
the value. A more detailed description of the matcher wi 1 1 be given 
later. 

5) $N <number> is a macro for (THANlfN <number>). It says that 
the goal should only be tried to be satisfied <number> times. Hence the 
<nuirtber> + 1 f th time the goal is failed back to, no more attempts will 
be made and the failure will continue backwards. In particular SN1 can 
be used^when there is only one possible answer, and if failure backs up 
to the THGUAL, no good can come by trying different assertions or 
theorems. SN <number>. If it Is to appear at all, nust appear In the 

f i rst posi tion. 

6) tTHHUH <number>> is very similar to SN <number>, but may 
appear at any point in the recommendation list. Its effect Is to set or 
reset the number of times the coal will be tried. For example. If It 
should appear first In the list, it is. In effect saying, the goal may 
use any number of assertions It can find, but only <number> number of 
theorems. In general, by interspersing THNOM 1 s between recommendat ions/ 
you are saying how r.iany of the theorems which match the next filter can 
be tried. 

2i) (THHATCH <expl> <exp2>) 

THMATCH matches the lisp value of Its first argument against the 
lisp value of Its second argument. For example, 

(THMATCH '(HUMAN TURING) ■ ( 5_X $_Y)) 
would succeed and result in &_X being assigned to 'HUMAN and $_Y being 
assigned to 'TURING. If $_X were instead S?X, then THMATCH would succeed 
with $?X assigned to 'HUMAN, providing $?X were previously either 
THUNASSICNEU or assigned to HUMAN. 

Failing back through a THMATCH Is similar to failing back through 
a THGuAL. Any variable assignments made bv the match are undone and the 
var iabl es are returned to the! r prev lous values. 

Note that THMATCH will not work properly If its inputs are 
themselves planner functions since PLANNER Is not corecurslve with LISP. 
For example. If HUMAN TURING Is already asserted, the planner value of 

(THGOAL (HUMAN TURING)) 

Is ((HUMAN TURING)) but its 1 Up value Is NIL. Hence, 

(THMATCH (THGUAL (H T)) '(HUMAN TURING)) 

will not work properly. An explicit call to THVAL, however, will work: 

(THMATCH 

(THVAL '(THGOAL (HUMAN TURING)) MIL) 
'((HUMAN TURING))) 

2b) (THMESSAGE <varlable declarat lons> <pattern> <el> . . . <en>) 
examines failures propagating to It, If one has a message which matches 
the pattern (after the declarations are made) control then passes to the 
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body, <e!>, which executes as a THPROG. 

27) (THNUHASH <AT0fO <INDICAT0R1> < I UD I CAT0R2> . . . ) 

The patterns of micro-planner theorems and assertions are stored 
In buckets hung on the atoms appearing in the patterns. Atoms which are 
very common are not very useful for this purpose. For example* suppose 
we wished to assert the following five patterns; 

Al: (JOHN IS A UOY) 

A2: (JACK IS A iiOY) 

A3: (MARY IS A URL) 

Ak: (JILL IS A GIRL) 

A3: (WOUF IS A DUG) 

"IS" and "A" arc not helpful in di st ingui shine any of these assertions 
from the others. It would save space as well as computation to cell 
planner this. Executing 

(TMNUHASH IS THASSERTION) 
(THNUHASH A THASSERTION) 

accompl ishes this purpose. 

une can be selective In telling planner where a particular atom 
Is not useful for pattern matching purposes. This Is done by specifying 
which of the four following types of patterns the atom is not useful in 
Indexing: 

the patterns of 

consequent theorems 
antecedent theorems 
erasing theorems 
assertions. 

The syntax for this is to use any combination of the four following 
indicators; 

THCONSE, THANTE, THE RASING, THASSERTION 

For example, (THNUHASH IS THASSERTION) Informs planner not to use 
the atom "IS" as a handle on the pattern matching of assertions in which 
It Is found. It Is still used for pattern matching purposes when it 
occurs in the patterns of theorems. 

(THNUHASH <atom> THCOMSE THANTE THERASING THASSERTION) 

can be abbreviated as (THNUHASH <atom>) and Is used when the atom that it 
Is completely useless for pattern matching purposes. 

28) (THNUT <e>) is defined as (THCONO (<e> (THFAIU) ((THSUCCEED) ) ) . 
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2y) (THOk <el> ,.. <en>) 

THOM succeeds if at least one of Its subexpressions succeeds, 
basically, it CDRs down the list looking tor a winner and if It finds one 
it succeeds, returning its value as the PLANNER value. If a failure 
propagates back to it, however. It continues CDRing from the point It 
left off until it finds another winner or it loses. 

Si*) (THPKUG ^declaration <el> ... <en>) 

THPKUG is the PLANNER equivalent of the LISP function PROG. Its job 
Is to bind the variables mentioned In the declaration and then to execute 
the expressions <ei> in sequence, unless changes in sequence are 
speci fled by tags and THGO statements. As in LISP, atoms occurring In 
THPKUG bodies ^re interpreted as tags. If (THGO <tag>) Is executed at 
any point in the interpretation of a THPROG, execution then proceeds from 
the expression Immediately following the tag (tag>, THGU statements may 
refer to tags which are not in the current THPROG but which are in one 
which called it* The execution of THPROG terminates either with a 
failure, successful execution of its last expression, <en>, or by a 
forced success with a TIIRETURN statement. (THRETURN <exp>) Is equivalent 
to (THSUCCEEU THPROG <exy>) and will cause the THPROG to succeed and 
return as Us PLANNER value the LISP value of the indicated expression. 
If a THPROG returns by succeeding past the last statement, or by 
executing a (THSUICEEU THPROG), it returns as Its PLANNER value the atom 
JHNUVAL. If it falls. It returns NIL, 

The <declaration> Is a list of variable declarations. A variable 
declaration is cither an atom which Is the name of a variable to be used 
inside the THPROG, or a list of two elements, the first of which is the 
variable name and the second of which is a LISP expression whose LISP 
value Is to be used as the Initial value of the variable. If a variable 
I* bound without giving it an Initial value it Is given the default value 
"TIIUNASSIUNED." A more complex form of variable declaration may be found 
under THRESTRICT. 

Evaluation of a THPROG begins at the first expression of the indicated 
sequence. If It succeeds, a new branch is generated on THTREE and the 
next express! on in sequence is eval uated, etc* If any statement f alls 
then the branches are unwound until either a new success ends the failure 
propagation or there are no more branches and the THPROG fails. Thus 
THPROG behaves as a THAHD with variable binding capability; It fails 
unless each of its subexpressions succeeds, allowing for backup, until It 
returns. As usual, any LISP expression may appear in a THPROG; If It 
evaluates to NIL, a failure is generated, otherwise a success Is assumed. 
Other relevant functions are THSUCCEED, THFA1L, THFINALIZE, THGO, and 
THRETURN. 

31) THHSEODU 

"(THPSEUDU)" as the first reconmendat 1 on to an assertion enables 
one to activate a pattern's antecedent theorems, without actually 
asserting the pattern. For example, to activate the antecedent theorems 

^which match the pattern "(HUMAN TURING)" without actually asserting It Is 

~ iccur.ipl i shod by: 
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(THASSERT (HUMAN TURING) (THPSEUOO) ST) 

In many cases this can be done without using THPSEUOO by first asserting 
the pattern with the appropriate theorem reconvnendat ions and then erasing 
the pattern. For instance, one could accomplish the same effect as using 
THPSEUOO in the above example by the following; 

(THASSERT (HUMAN TURING) JT) 
(THERASE (HUMAN TURING)) 

However, THPSEUUU becomes necessary when some of the variables In the 
pattern are unassigned, thus preventing it from being asserted, 

THPSEUUU performs In the same fashion for activating a pattern's 
erasing theorems wi thout actually erasing the pattern. 

32) THPUTPKUP, ThREMPHUP, THKPLACA, THRPLACD are lust like their LISP 
counterparts except that If a failure backs up to them they undo their 
effect. 

33) (THRESTRICT <variable> <lisp function 1> <llsp function 2> ...) 

THRESTRICT allows one to restrict a PLANNER variable so that it 
will only match objects which satisfy the LISP predicates named In the 
J"HHESl'Rl CT statement. For example, const der 

(THGUAL (AGE MUThtK UH $?X NUMBER?) ) ) 

>K is an abbreviation/ which expands to THRESTRICT, In this example, $?X 
will only match numbers. Naturally, the function named must be a 
function of one variable. Of course, we could have a lambda expression 
instead of the function name, as in 

(THGUAL ($?* IS A (SR ? (LAMBDA (X) (MEMQ X f ( DOG CAT HACKER)))))) 

Also note that rather than a variable, we have a question mark Inside the 

>k expression. The net result is that the "?" will only natch DOG, CAT, 

or HACKER. However, it doesn't get assigned a value as $?X would in our 
first example. We can also have 

(SR S_Z MVPRED) 

which has the expected result. 

In all our examples so far the restriction has been 
declared in our goal statement. We can also create the restriction when 
we declare variables at the beginlng of a theorem, or a THPROG, as In 

(THPRUG (A (SR B HUMANPK) 

(THGUAL (S?A SON OF $?6) $T)) 
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In this THPKOG' s variable bindings we use b rather than l?li or S_B. (The 
prefix would have no meaning In the context of a variable list.) It Is 
also possible to use THRESTRICT as a free standing function, so this last 
THPROG could have been written 

(THPKOG <A b C) 

(THRESTRICT U HOHANP) 
(THGOAL (S?A SON OF SB)$T) 

Once we restrict a variable It stays restricted until It Is 
unbound. As we shall see, this has some interesting consequences. 

At the moment THGOAL is the only function which takes note of 
restrictions. So one can THSETO. 3 restricted variable to a value which 
would not satisfy its restrictions. The same goes for TH AMONG. 

It is possible to have 

(THPKOG (A (SR U ORANGEP) C) 

(THGOAL (OWN $?A ( SR $?B CJ RCUIARP) > ) 

which will act the same as 

(THPKOG (A (SR U ORANGEP ClRCULAKP) C) 
(THGOAL (OWN $?A S?B)> 

Another interesting case Is 

(THGOAL (OWN JACK ($R S?B CIRCOLARP)) (THOSE WHOHAS)) 

where tJHOHAS looks I Ike 

(THCONSE (F G) 

(OWN $?F S?G) 

(THGOAL (HOLD S?F ($R $?G SMALLP) >$T)> 



- * 



When we do this last THGOAL, the item which matches S?G must satisfy both 
CIHCULAkP and SMALLP. It Is possible that this r.oal will call another 
theorem which satisfies the goal without assigning $?G a value. If this 
Is the case then our first goal (OWN JACK..,) will be satisfied without B 
setting a value, but, the restriction SMALLP will stay with $?B, just as 
an assl&ncd value would have. Hence it Is possible for a theorem not to 
assign a value to a variable, but merely restrict its range of 
possibi 1 i t ies. 

3<i) [Til RETURN <e>) ■ (THSUCCEED THPROG <e» 

ib) (THSETq <varl> <el> ... Cvarn> <en>) 

Sets variable 1 to the value of ei and ... and sets variable n to 
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the value of en. If failure backs up to it/ it Is undone. If the 
variable Is a planner variable then the corresponding expression Is 
THVALed; otherwise the expression Is EVALed. THSETQ ignores variable 
restrictions. See Warning about THVAL. 

36) <THSTATE <lnd!catorl> <lndlcator2> ... ) 

Prints that part of the state of the Micro-Planner world 

specified by the indicators. 

(THbTATE THASSEHTION) = assertions in data base 
(THSTATE THCOHSE) ■ consequent theorems currently asserted 
{THSTATE THANTE) a antecedent theorems currently asserted 
{INSTATE TH ERASING) - erasing theorems currently asserted 

57) (THSUCCEED <argl> <ar fi 2>> 

THSUCCEED caused success to propagate/ the extent of which Is 
determined by the arguments; 

(TllbUCCEED THTAG <cag>) - (THGO <tag>) - see THPROG. 

(TH&UCCEEU THPROG <e>) = (THRETURN <e>) - see THPROG. 

(THSUCCEED <place>) = (THSUCCEED <place> T) 

(THi-UCCEEU THEOREM <e>) causes theorem to succeed with value of <e>. 

(THSUCCEED THEOREM) causes the theorem to succeed with value THNOVAL. 

(THSUCCEED) causes a simple success to propagate. 

3ti) (THUNIUUE <cxpl> <exp2> ...) 

THUNIUUE Is a state filter. It causes failure If the list 
consisting of the values of its arguments has been computed by any 
previously executed THUUIQUE. For example, a consequent theorem named 
THMl can be prevented from getting Into a loop by calling Itself 
recurs I vely (via any Intermediate theorems) wl th arguments identical to 
those supplied to the theorem at the higher level activation by making 

(THUUIQUE 'TUMI $?X1 $?X2 ... ) 
the firsj statement of the theorem's body, where $?X1, $7X2, ... are the 
planner variables occurring in the theorem's pattern* 

39) (THfc ^variable name>) (THNV <varlable name>) 

These LISP functions get the PLANNER value of the variable whose name 
is given. Jhe atoms THV and THNV also serve as markers of the special 
variable flags to the matcher. CTHV FUO) is $7F00 and (THNV F00) Is 
S_FuO by using the macro-character feature of LISP 1.6. 



*»0) (TllVAL <expression> <alist>) 

THVAL is the Micro-Planner evaluator Just as EVAL is the LISP 
evaluator. As In LISP, the first argument Is evaluated (THVALuated) with 
free variables In it given the values associated with them on the given 
alist, Micro-Planner's alist, called THALIST, Is a list of pairs (CAR- 
CAPK not CAR-CDR) of variable names and values. If you want to stop a 
Micro-Planner evaluation at the next interruptable place hit ctrl-A. 
Planner will then type out IA-THVAL and go into a THERT listen loop (see 
»TllEKT) . The next expression to be executed Is In the variable THE. To 
proceed, type $p<space>. Warning: an explicit call to THVAL may not be 
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reentered for backup upon fa Mure after that cal) returns. 

kl) (TilVSETU <varl> <el> ... <varn> <en>) 

bets the variables to the values of eis as In THSETQ, Not undone on 
failure backup. See warning about THVAL. 

i*2) Abbreviations 



5?x 


= (THV x) 


>_■ 


= (THHV x) 


*Ex 


- (THLV x) 


5K 


= THkESTRICT 


5G 


• THGOAL 


SA 


= THA5SERT 


srix 


« (THAIIUM x) 


ST 


- {THTBF THTKUE) 


s& . 


.. & Is ignored 



45) The Matcher 

The Matcher In Micro-Planner Is elementary and contains a minimum of 
bells and whittles but is (hopefully) sufficiently powerful for most 
problems, Micro-Planner's matcher only matches lists one level deep and 
only has two distlncc kinds of variable occurrences. The matcher's 
actions can be summarized in the G-by-6 chart on the next page, which 
shows how any two pattern elements Interact. One nice hook in the 
matcher Is that a pattern element (or the entire pattern) may be of the 
form $E<expresslon> or (THEV <expressf on)) (those macro-characters are at 
It again!) , which means that the clement (or pattern) is to be replaced 
with the result of THVALuating the expression with an appropriate 
THALIiiT. For example* to stack up all red objects; 

(THGOAL (*STACKUP JE(THFIND ALL $?X (X) (THGOAL (#C0LOR $?X *RED)) 
Sec THHESTRICT for more powerful matching methods 



MATCHER CHARACTERISTICS 



.Calling 



Pnttarp 



S?X or (THV X) 



assigned 



assigned 



?*X or (THNV X) 



un- 
assignecl 



itsginned 



Constant 
C 



i 







\ I 

c m 

m 



V(X)*V(Y) 
Y*- X 



V(Y)*V{X) 



V(X)+V(Y) 
Y4- X 



V(X}+V(Y} 
Y + X 



V<Y)*C 



a 
I en 
» q 

D 



X 
j 

p co o 

ii" 



u> 






Constant 
D 



V(X)+V<Y| 
IT* X 



V{X}*V(YJ 
Y*-X 



vTxji-V(Y> 
Y*-X 



V(X>4-D 



V(X)*V(Y) 
Y*-X 



V(Y)^VtX) 



V(Y^V(X) 



V{Y)*-V(X) 



VfXWD 



v(x!*v(Y) ! 

Y*X 



V(X)+V(Y) 
Y4-X 



2J2U"£ 



V(X)«-V(Y) V{Y)«-C 
Y*-X 



V{X)«-V(Y) 
Y* X 



V(X)*V{Y) 
Y**X 



V(X)*D 



V(X)*D 



V(Y}*-C 
















■ 
"^Action Taken — Blank if no action is taken 
— Condition for Success — Blank if always succeeds 






V{X) mear 


is value of X, V(Y) means value of Y 




V(Y)<-V(X) means Y assigned to value of X 




Y<- X means Y assigned to value of X such that if Y is 




clobbered, so is X 

* 
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IV. A Compendium of Micro-Planner Error Comments 

The Micro-Planner error comments are meant to be self-explanatory. If 
you coiiie across one which Is not. It is probably meant for me, not you, 
and it would help in removing residual bugs for you to save the situation 
and show It to me. All Micro-Planner error contnents are typed out by a 
break function called THERT which leaves you in a LISP listen loop at a 
point as close as possible to the occurrence of the error, so that the 
state of the system may be interrogated. Usually the error Is fatal, 

but if you wish to proceed, type $P<space> (See THERT). Usually something 
is typed out before the error comment; that Is the object the comment Is 
coRiplal nlng about. Micro-Planner error comments almost always end with - 
<funny word>; the <funny word> Is the name of the system function which 
goc mad. In many cases. Micro - Planner will catch the error before It 
ha^ done anything too drastic. In such cases the user villi be able to 
patch things up on the fly, and continue as if nothing happened. Whether 
or not this can be done depends on the kind of error. 
The authorized list follows: 

LI5PERRUK - THVAL 

LlbP became unhappy when trying to evaluate the expression typed out. 
If proceeded, the value of THERT will be assumed to be the value of the 
expression which caused the error. 

UAU SUCCEED - THVAL, or BAD FAIL - THVAL 

You were screwed by a Planner bug* Please save situation and contact 
me. 

UNCLEAR RECOMMENDATION - THTRY 

The expression typed out before the error comment was a recommendation 
to THGOAL which was not either a THTUF, THDBF, THNUM, or a THUSE, or was 
a THANUM or THNUUB which did not come first In the list. If proceeded, 
the value of THERT will be assumed to be the correct recommendation* 
Atonic recommendations are Ignored. Since proceeding with $P Is 
equivalent to proceeding with the value T , SP In effect says to Ignore 
the recommendation entirely 

bAD THEOREM - THTRY 1 

The expression printed was passed to THGOAL as a theorem. It either 

did not have a THEOREM property or was not a consequent theorem. If 
proceeded with a value/ the value will be assumed to be the correct 
theorem name. If Si J is used, this theorem will be ignored and the next 
I tern on the recommendat ion list will be tried* 

BAD CALL - THFIHALIZE 

You called THFINALIZE without giving a place to finalize to. If 
proceeded, the value of the THERT Is taken as a specification of the 
place. If $P Is used, the finalize Is Ignored. 

OVERPOP - THFINALIZE 

THFINALIZE overpopped THTREE trying to find the lousy place to stop. 
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This is a fatal error. Mo recovery Is possible. 

OVEKPOP - THSUCCEED 

THSUCCEED overpopped THTKEE trying to find the place to stop 
succeeding. Renumber that THGU and THRETURN use TMSUCCEED. Fatal 
error. 

HUT FUUND - THFAIL 

THFAIL could not find the place to stop failing. If proceeded the 
value of THERT Is taken as a specification of the place. If it Is T or 
NIL then it Is just returned as the value of THFAIL. 

IMPURE ASSERTION OR ERASURE - THASS1 

The datum you tried to assert or erase had a variable which was 
unassigned. The offending assertion Is In the variable THX. You nay 
edit it to be pure and then proceed the program. 

HAD THEOREM - TIITAE 

You tried to THUSE an antecedent or erasing theorem which was of the 
wrong type or did not have a theorem property. If you proceed the value 
of THfcRi is assumed to be the correct theorem name. If you had just 
forgotten to define the theorem, feel free to define it before you 
proceed, and return the same name. 

UNCLEAR RECOMMENDATION - THTAE 

You gave a THASSERT or THERASE recommendation which was not a THTOF or 
a THUSE. As In THTRY, the value of THERT Is assumed to be the corrected 
recommendation. Atonic ones are again ignored. 

ODD NUMBER UF GOODIES - THSETQ, or ODD NUMBER OF GO0DIE5 - THVSETQ 
THSETU or THVSETu does not know what to do with the last goodie. 
Proceeding will cause the odd goodie to be Ignored, (Naturally the error 
will be ignored also, ) 

THUNBUUNU - THV1 

You tried to access the value of the unbound variable printed. If 
proceeded, the value of THERT will be assumed to be the value cell of the 
variable which was not bound. 

THUIJASSIGNED - THV1 

You tried to use the value of the unasstgned variable printed. The 
value of THERT Is taken as the value of the variable In the current 
expression. Note that if you want the variable to have this value later, 
you had better THVSETCl It. 

THUNBOUNU - THGAL 

You tried to access the unbound variable printed. Proceed as In 
THUNBUUND - THV1, 
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V. Mines and kinks 

1) All atoms whose pnames begin with TH arc property of Micro-Planner and 
should not be used in programs designed Co interact with it. 

2) When Micro-Planner is loaded (by tPLHR in DDT) it Is listening in a 
KEaO-THVaL-PRINT loop at the top level. Typing SP<space> will cause this 
loop to be exited to a LISP READ-EVAL-PRINT loop. Any error condition 
which propagates to the top level (eg. cntrl-G) will restart the READ- 
THVAL-PKJilT listen loop. 

3) The system version of Micro-Planner has a LAP in it. It Is desirable 
to KEMLAP at the earliest possible time as the LAP takes up lots of 
space, 

i*) The EXPR version of Micro-Planner Is In DSKlPLNR; PLNR > and the LAP 
version ib stored In DSK: PLNR; PLUR LAP. 

5) Because most Micro-Planner primitives operate by modifying THTREE and 

then returning/ It is fairly uni 1 luml noting to try to trace them with a 

LISP tracer (whl ch Is good for the LISP recursive control structure). 

For that reason I have taken pains to provide a tracer which Is more 

relevant to the plannor control structure. It is available as EXPR code 

in DSK:PLNR;THTRAC >. With It one can conditionally trace and break on 

theorems/ assertions/ erasures/ and fioals. To use the tracer one must 

first read it in and then incant (THTRACE <objl> . . . <objn>)/ where 

each object Is an Item to be traced or broken at. The possible entries 

arc ei ther: 

<atoni> abbreviation for (<atom> t nil) 

(<atom> <trace condition>) abbreviation for (<atom> <trace condition> 

nil) or 

(<atom> <trace condit!on> <break condltion>) 

The CAR of the Item may either be the name of a theorem or one of the 

following atoms which have special meanings: 

THEOKEM al 1 theorems 

THGUAL all goals 

THASSERT all assertions 

THEKA5E al I erasures 

THbKPT all breakpoints 

The conditions are THVALed with the THALIST which Is current at the time 

of call and thus may be arbitrary PLANNER programs which test the state 

of variables and the data base. Tracing of selected I terns, or of all 

I terns may be terminated using THUNTHACE* 

G) A Micro-Planner program may at any point call a LISP program/ but a 
LlaP program may not call a Micro-Planner primitive because the PLANNER 
control structure Is not really recursive. If a LISP routine wishes to 
call a PLANNER program It must explicitly THVAL it with an appropriate 
THALIST. Be especially careful not to screw around with the LISP values 
of Micro-Planner primitives unless you understand what you are doing. 
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The possibilities for lossage are infinite 



